home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / BBS / SECOND_SIGHT / FSP.2.55.cpt / FSP Control / FSP Control
Encoding:
Text File  |  1989-04-03  |  6.4 KB  |  297 lines  |  [TEXT/QED1]
  1. *
  2. * File maintenance procedure for The <TBD> BBS
  3. *
  4. *
  5. * Set up control symbols (flags)
  6. *
  7. SENDSERIAL "A" "ATH1"
  8. *
  9. DEFINE "Special"    "NO"
  10. DEFINE "Launch"     "YES"   ;  Launch RRHost?
  11. DEFINE "ChkBBS"     "NO"
  12. DEFINE "ChkPaths"   "YES"
  13. DEFINE "SaveTxt"    "YES"
  14. DEFINE "MoveFiles"  "YES"
  15. DEFINE "LoadTxtDate"  "99/99"   ; Set to current date if file sections
  16.                                 ; should be loaded from text files.
  17. DEFINE "AddFolder" "YES"  ;
  18.  
  19. ; Day Of Week : 1 - Sunday ... 7 - Saturday
  20. DEFINE "DayOfWeek"  "@3"  
  21. *
  22. *
  23. DEFINE "Default_Level"  "0"
  24. *
  25. LIST "5"  ; For Debug, list Macro execution
  26.           ;  Set to "0" to turn off.
  27. *
  28. * Define location of BBS (RRHost) and File Sections
  29. *
  30. *   "BBS" MUST be set if you use partial pathnames!!
  31. *
  32. DEFINE "BBS" "Jasmine:BBS"  ; 
  33. SHOWSYMBOL "BBS"            ; Put into log file for verification.
  34. *
  35. *
  36. DEFINE "where" ""                  "NO"  ; for same folder as FSP.
  37. DEFINE "where" ":Files"            "YES" ; for subdirectory "Files"
  38. SHOWSYMBOL "where"
  39. *
  40. DEFINE "NewsLetter" "where:Sect1:.NLF"
  41. DEFINE "DLPriv"     "where:Sect0:.DLPriv"
  42. DEFINE "DL1"        "where:.DL1"
  43. DEFINE "Scratch"    "where:ScratchSect"
  44. *
  45. DEFINE "All_Files_Sect"  "where:.DL1" "YES"
  46. *
  47. *
  48. **********************
  49. *  End of Definitions 
  50. **********************
  51. SKIP "* Daily"  "Special-" ;  Special Processing?
  52. *
  53. LIST "6"
  54. CLEAR
  55. READTEXT ":New Files:Uploads.txt"
  56. ADD      ":New Files:Uploads"
  57. DELETE/DUPS
  58. PURGE
  59. CHECKPATH/DELETE  "BBS"
  60. MOVE     ":New Files:Latest"
  61. SAVE     ":New Files:Uploads"
  62. SAVETEXT ":New Files:Uploads.txt"
  63. END
  64.  
  65. CLEAR
  66. READTEXT ":Files:.AppleSSW.txt"
  67. CHECKPATH/DELETE   ":Files:Apple Sys SW"
  68. ADD/FOLDER  ":Files:Apple Sys SW"
  69. SAVE        ":Files:.AppleSSW"
  70. SAVETEXT ":Files:.AppleSSW.txt"
  71. *
  72. CLEAR
  73. READTEXT ":Files:.AppleDevSW.txt"
  74. CHECKPATH/DELETE   ":Files:Apple Dev SW"
  75. ADD/FOLDER  ":Files:Apple Dev SW"
  76. SAVE        ":Files:.AppleDevSW"
  77. SAVETEXT ":Files:.AppleDevSW.txt"
  78. END
  79. *
  80. CLEAR
  81. READTEXT ":New Files:Uploads.txt"
  82. ADD      ":New Files:Uploads"
  83. DELETE/DUPS
  84. PURGE
  85. ADD/FOLDER ":New Files:Latest"
  86. SORT/DATE
  87. CHECKPATH/DELETE  ":New Files"
  88. PURGE
  89. MOVE/UNDER ":New Files"
  90. SAVE     ":New Files:Uploads"
  91. SAVETEXT ":New Files:Uploads.txt"
  92. END
  93. * End of special processing.
  94. *
  95. ******************
  96. * Daily Processing
  97. ******************
  98. *
  99. *
  100. * Update Uploads Section prior to individual section handling.
  101. *
  102. CLEAR
  103. READTEXT ":New Files:Uploads.txt"
  104. ADD      ":New Files:Uploads"
  105. DELETE/DUPS
  106. PURGE
  107. ADD/FOLDER ":New Files:Latest"
  108. SORT/DATE
  109. CHECKPATH/DELETE  ":New Files"
  110. PURGE
  111. SAVE     ":New Files:Uploads"
  112. SAVETEXT ":New Files:Uploads.txt"
  113. *
  114. DEFINE "New_Files_Sect"  ":New Files:Uploads"
  115. *
  116. *
  117. DEFINEMACRO "ProcFileSect"
  118.    ; @1 - Section Number
  119. CONCATENATE "path"   "where:Sect"   "@1"
  120. CONCATENATE "nfpath"   ":New Files:NF."   "@1"
  121. CONCATENATE "dlsect" "path:.DL"     "@1"
  122. CONCATENATE "txtpth" "where:TextLists:"      "@1.txt"
  123. SHOWSYMBOL "path"
  124. SHOWSYMBOL "nfpath"
  125. SHOWSYMBOL "dlsect"
  126. * 
  127. EQUAL "@3" "Date" "LoadTxtDate" 
  128. SKIP "**" "@3-"      ; Skip if LoadTxtDate is not
  129.                      ; equal to current date.
  130. CLEAR
  131. READTEXT  "txtpth"
  132. SKIP "SAVE"
  133. **
  134. LOAD "dlsect"
  135. SAVE "dlsect Bckup" 
  136. **
  137. DELETE/DUPS
  138. SORT/DATE
  139. CHANGEPATH "path"
  140. CHECKTYPE
  141. CHECKPATH         "BBS"    "ChkBBS"
  142. CHECKPATH         "path"   "ChkPaths"
  143. CHECKPATH/DELETE  "nfpath" "ChkPaths"
  144. ADD/FOLDER        "path"       "AddFolder"
  145. ADD/FOLDER        "nfpath"  ; Always add files in NF folders
  146. MOVE/UNDER        "path"      "MoveFiles"
  147. ADDTO/DELETE      ":Files:Going:.Going"  "YES"
  148. MOVE/DELETE       ":Files:Going"         "YES"
  149. PURGE
  150. SAVE    "dlsect"    "YES"
  151. SAVETEXT   "txtpth"  "SaveTxt"  ; Save Text form
  152. SIZE
  153. ENDMACRO
  154. *
  155. * Sort sections in inverse chronological order.
  156. *
  157. ProcFileSect "2"     ; Applications Section
  158. ProcFileSect "3"     ; Utilities Section
  159. ProcFileSect "4"     ; Games Section
  160. ProcFileSect "5"     ; DA's Section
  161. ProcFileSect "6"     ; Art/Fonts/Music Section
  162. ProcFileSect "7"     ; Text/Documents Section
  163. ProcFileSect "8"     ; Apple Release Section
  164. ProcFileSect "9"     ; Developer's Section
  165. ProcFileSect "A"     ; Mac II Section
  166. ProcFileSect "B"     ; HyperCard Section
  167. ProcFileSect "C"     ; Communications Section
  168. *
  169. *  Process Deleted files section before All_Files_Sect
  170. *  is updated.
  171. *
  172. DEFINE "path"   ":Files:Going"
  173. DEFINE "dlsect" "path:.Going"
  174. LOAD "dlsect"
  175. DELETE/NONE                ; Clear Delete Flags
  176. CHECKPATH/DELETE  "path"   ; If any files are listed in this section
  177. PURGE                      ; and aren't in the folder, then delete it
  178.                            ; and delete the file off the disk.
  179. ADD/FOLDER "path"          ; Add any files that have been moved into
  180.                            ; the folder
  181. SAVE "dlsect"
  182. SAVETEXT "dlsect.txt"
  183. *
  184. *
  185. *  Set up 'ALL Files' section
  186. *
  187. DEFINEMACRO "AddSect"
  188.    ; @1 - Section Number
  189. CONCATENATE "path"   "where:Sect"  "@1"
  190. CONCATENATE "dlsect" "path:.DL"     "@1"
  191. SHOWSYMBOL  "dlsect"
  192. ADD "dlsect"
  193. ENDMACRO
  194. *
  195. CLEAR
  196. AddSect "C"
  197. AddSect "B"
  198. AddSect "A"
  199. AddSect "9"
  200. AddSect "8"
  201. AddSect "7"
  202. AddSect "6"
  203. AddSect "5"
  204. AddSect "4"
  205. AddSect "3"
  206. AddSect "2"
  207. ADD ":Files:Going:.Going"
  208.  
  209. DELETE/DUPS
  210. PURGE
  211. SORT/TITLE
  212. FORMAT "DEL+TITLE+VERS+SECT:5+SIZEK+DATE+CR+DESC"
  213. SAVETEXT/FORMAT "where:DL1.Alpha"
  214. SORT/DATE
  215. SAVETEXT/FORMAT "where:DL1.Chrono"
  216.  
  217. SAVE "Scratch"   ; Save 
  218. *
  219. * Determine new entries since last clear of NewFiles.
  220. SUBTRACT  "DL1"
  221. DELETE/DUPS
  222. PURGE
  223. ADDTO  "where:.NewFiles"  ; 
  224. *
  225. LOAD "Scratch"
  226. CHECKPATH/DELETE  "BBS"
  227. SAVE     "DL1"
  228.  
  229. *     I.e. find files that are not referenced within RRHost.
  230.  
  231. CLEAR
  232. FORMAT  "DEL+TITLE+SECT:8+PATH"
  233. AddSect "2"
  234. AddSect "3"
  235. AddSect "4"
  236. AddSect "5"
  237. AddSect "6"
  238. AddSect "7"
  239. AddSect "8"
  240. AddSect "9"
  241. AddSect "A"
  242. AddSect "B"
  243. AddSect "C"
  244. ADD ":New Files:Uploads"
  245. ADD "NewsLetter"
  246. ADD "DLPriv"
  247. SAVETEXT/FORMAT "where:Files by Sect"
  248. *
  249. *
  250. END "Special"
  251. DELETEFILE  "Scratch"
  252. *
  253. DELETE/AGE "180"
  254. DELETE/TOGGLE
  255. PURGE
  256. FORMAT  "TITLE+DATE+PATH"
  257. SAVETEXT/FORMAT "where:Old Stuff"
  258. *
  259.  
  260. * Sort NewFiles
  261.  
  262. LOAD "where:.NewFiles"
  263. SORT/PATH
  264. SAVE "where:.NewFiles"
  265.  
  266. * Delete All Newsletter Files Older than 60 days.
  267. *
  268. LOAD "NewsLetter"
  269. SORT/DATE
  270. DELETE/AGE  "60"
  271. PURGE/DELETE
  272. SAVE "NewsLetter"
  273. *
  274. * Delete All Private Files Older than 10 days.
  275.  
  276. LOAD "DLPriv"
  277. SORT/DATE
  278. DELETE/AGE  "10"
  279. PURGE/DELETE
  280. SAVE "DLPriv"
  281. *
  282. *
  283. ********************
  284. * LAUNCH RRHost
  285. ********************
  286. *
  287. SENDSERIAL "A" "ATH0"
  288. *
  289. END "Launch-"       ; Quit if Launch symbol is not YES or TRUE
  290. LAUNCH "Jasmine:BBS:Red Ryder Host"  "Remote"  
  291. EQUAL/NOT "@3" "4" "DayOfWeek"    ; Set @3 to true if not Wed.
  292. LAUNCH "Jasmine:BBS:Red Ryder Host"  "@3"  
  293. LAUNCH "Jasmine:BBS:ArchiveCL"       "Remote-"  ; Run ArchiveCL on boot
  294. *
  295. END
  296. *
  297.